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How to automate Microsoft Excel from Visual Basic .NET 

This article was previously published under Q301982 

Article ID : 301982 

SUMMARY Last Review : September 19, 2005 

This article demonstrates how to create an Automation client for Microsoft Revision : 8.0 
Excel by using Microsoft Visual Basic .NET. 



MORE INFORMATION 

Automation is a process that allows applications that are written in languages such as Visual Basic to 
programmatically control other applications. Automation to Excel allows you to perform actions such as creating a new 
workbook, adding data to the workbook, or creating charts. With Excel and other Microsoft Office applications, 
virtually all of the actions that you can perform manually through the user interface can also be performed 
programmatically by using Automation. 

Excel exposes this programmatic functionality through an object model. The object model is a collection of classes and 
methods that serve as counterparts to the logical components of Excel. For example, there is an Application object, 
a Workbook object, and a Worksheet object, each of which contain the functionality of those components of Excel. 
To access the object model from Visual Basic .NET, you can set a project reference to the type library. 

This article demonstrates how to set the proper project reference to the Excel type library for Visual Basic .NET and 
provides sample code to automate Excel. 

Create an automation client for Microsoft Excel 

1. Start Microsoft Visual Studio .NET. 

2. On the File menu, click New, and then click Project. Select Windows Application from the Visual Basic 
Project types. Forml is created by default. 

3. Add a reference to Microsoft Excel Object Library. To do this, follow these steps: 

a. On the Project menu, click Add Reference. 

b. On the COM tab, locate Microsoft Excel Object Library, and then click Select. 

Note Microsoft Office 2003 includes Primary Interop Assemblies (PIAs). Microsoft Office XP does not 
include PIAs, but they can be downloaded. For more information about Office XP PIAs, click the following 
article number to view the article in the Microsoft Knowledge Base: 

328912 (http://support.microsoft.eom/kb/3289l2/1 Microsoft Office XP primary interop assemblies 
(PIAs) are available for download 

c. Click OK in the Add References dialog box to accept your selections. 

4. On the View menu, select Toolbox to display the Toolbox, and then add a button to Forml. 

5. Double-click Buttonl. The code window for the form appears. 

6. In the code window, locate the following code: 

Private Sub Buttonl_Click (ByVal sender As System . Ob j ect , _ 
ByVal e As System. EventArgs) Handles Buttonl . Click 

End Sub 



Replace the previous code with the following code: 

Private Sub Buttonl_Click (ByVal sender As System . Ob j ect , 
ByVal e As System . EventArgs ) Handles Buttonl . Click 
Dim oXL As Excel .Application 
Dim oWB As Excel . Workbook 
Dim oSheet As Excel . Worksheet 
Dim oRng As Excel. Range 

' Start Excel and get Application object. 
oXL = CreateObject ( "Excel .Application" ) 
oXL. Visible = True 
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1 Get a new workbook . 
oWB = oXL . Workbooks . Add 
oSheet = oWB . ActiveSheet 

1 Add table headers going cell by cell. 
oSheet. Cells (1, 1). Value = "First Name" 
oSheet. Cells (1, 2). Value = "Last Name" 
oSheet. Cells (1, 3). Value = "Full Name" 
oSheet .Cells (1 , 4). Value = "Salary" 

' Format Al : Dl as bold, vertical alignment = center. 
With oSheet .Range ( "Al" , "Dl") 
.Font. Bold = True 

. VerticalAlignment = Excel . XlVAlign . xlVAlignCenter 
End With 

' Create an array to set multiple values at once. 
Dim saNames(5, 2) As String 
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0) 




» John " 
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" Smith" 
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"Tom" 
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"Brown" 
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"Sue" 
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"Thomas" 
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"Jane" 
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"Jones " 
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"Adam" 
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"Johnson " 



' Fill A2:B6 with an array of values (First and Last Names) . 
oSheet .Range ( "A2 " , "B6"). Value = saNames 

1 Fill C2:C6 with a relative formula (=A2 & " " & B2). 
oRng = oSheet .Range ( "C2 " , "06") 
oRng. Formula = "=A2 & "" "" & B2" 

1 Fill D2:D6 with a formula (=RAND ( ) * 10000 0) and apply format. 
oRng = oSheet .Range ( "D2 " , "D6") 
oRng. Formula = " =RAND ( ) * 1 00 " 
oRng.NumberFormat = "$0.00" 

' AutoFit columns A : D . 

oRng = oSheet. Range ("Al", "Dl") 

oRng. EntireColumn. AutoFit ( ) 

1 Manipulate a variable number of columns for Quarterly Sales Data. 
Call DisplayQuarterlySales (oSheet) 

1 Make sure Excel is visible and give the user control 
1 of Excel ' s lifetime. 
oXL. Visible = True 
oXL . UserControl = True 

' Make sure that you release object references. 

oRng = Nothing 

oSheet = Nothing 

oWB = Nothing 

oXL.Quit () 

oXL = Nothing 



Exit Sub 
Err_Handler : 

MsgBox (Err . Description, vbCritical, "Error: " & Err. Number) 
End Sub 

Private Sub DisplayQuarterlySales (ByVal oWS As Excel .Worksheet) 
Dim oResizeRange As Excel. Range 
Dim oChart As Excel. Chart 
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Dim oSeries As Excel. Series 
Dim iNumQtrs As Integer 
Dim sMsg As String 
Dim iRet As Integer 



' Determine how many quarters to display data for. 
For iNumQtrs = 4 To 2 Step -1 

sMsg = "Enter sales data for" & Str ( iNumQtrs) & " quarter(s)? 

iRet = MsgBox(sMsg, vbYesNo Or vbQuestion _ 

Or vbMsgBoxSetForeground, "Quarterly Sales") 

If iRet = vbYes Then Exit For 
Next iNumQtrs 

' Starting at El, fill headers for the number of columns selected 
oResizeRange = oWS . Range ( "El " , "El "). Resize (ColumnSize : =iNumQtrs) 
oResizeRange. Formula = "=""Q"" & COLUMN ( ) -4 & CHAR (10) & ""Sales" 

' Change the Orientation and WrapText properties for the headers. 
oResizeRange -Orientation = 38 
oResizeRange. WrapText = True 

1 Fill the interior color of the headers. 
oResizeRange . Interior . Colorlndex = 36 

1 Fill the columns with a formula and apply a number format. 
oResizeRange = oWS . Range (" E2 " , " E6 "). Resize (ColumnSize : =iNumQtrs ) 
oResizeRange . Formula = " =RAND ( ) * 1 00 " 
oResizeRange .NumberFormat = "$0.00" 

' Apply borders to the Sales data and headers. 

OResizeRange = oWS . Range ( "El " , "E6 "). Resize (ColumnSize : =iNumQtrs) 
oResizeRange. Borders .Weight = Excel . XlBorderWeight . xlThin 

1 Add a Totals formula for the sales data and apply a border. 
oResizeRange = oWS . Range ( "E8 " , "E8 "). Resize (ColumnSize : =iNumQtrs) 
oResizeRange . Formula = " =SUM (E2 : E6 ) " 

With oResizeRange . Borders (Excel . XlBordersIndex . xlEdgeBottom) 

.LineStyle = Excel . XlLineStyle .xlDouble 

.Weight = Excel .XlBorderWeight .xlThick 
End With 

1 Add a Chart for the selected data. 

oResizeRange = oWS . Range (" E2 : ES "). Resize (ColumnSize : =iNumQtrs ) 
oChart = oWS . Parent . Charts . Add 
With oChart 

. ChartWizard (oResizeRange , Excel .XlChartType .xl3DColumn, , 
Excel . XIRowCol .xlColumns) 

oSeries = . SeriesCollection ( 1 ) 

oSeries .XValues = oWS . Range ( "A2 11 , "A6") 

For iRet = 1 To iNumQtrs 

. SeriesCollection (iRet) .Name = "=""Q" & str(iRet) & " 11 " " 
Next iRet 

.Location (Excel .XlChartLocation.xlLocationAsObject, oWS .Name) 
End With 

1 Move the chart so as not to cover your data. 
With oWS . Shapes . Item ( "Chart 1") 
. Top = OWS . Rows (10). Top 
.Left = oWS. Columns (2) .Left 
End With 

' Free any references. 
oChart = Nothing 
oResizeRange = Nothing 
End Sub 



7. Add the following code to the top of Forml.vb: 
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Imports Microsoft . Of f ice . Core 

Test the automation client 

1. Press F5 to build and to run the program. 

2. On the form, click Buttonl. The program starts Excel and populates data on a new worksheet. 

3. When you are prompted to enter quarterly sales data, click Yes. A chart that is linked to quarterly data is 
added to the worksheet. 
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For more information about Excel and Visual Basic, click the following article number to view the article in the 
Microsoft Knowledge Base: 

21915 1 (http://support.microsoft.com/kb/2l9l5l/) How to automate Microsoft Excel from Visual Basic 



APPLIES TO 

• Microsoft Visual Basic .NET 2003 Standard Edition 

• Microsoft Visual Basic .NET 2002 Standard Edition 

• Microsoft Office Excel 2003 

• Microsoft Excel 2002 Standard Edition 

Keywords: kbhowto kbautomation kbpia KB301982 



©2006 Microsoft Corporation. All rights reserved. 



http://support. microso ft.com/default. aspx?scid=kb;en-us;301 982 



05/05/2006 



